home *** CD-ROM | disk | FTP | other *** search
/ Windows 6-Pak - Disc 4 / Windows 6-Pak (InfoMagic) (Disc 4) (1999).ISO / Text-Chat-Addins / C-Script.exe / Sysfiles / Remote / events.mrc < prev    next >
Encoding:
Text File  |  1998-05-16  |  21.4 KB  |  360 lines
  1. ;C-Script v5.0 ⌐ 1998 C-Team. All rights reserved.
  2. ;Configure at your own risk
  3. ;Remote events file
  4.  
  5. on 1:CLOSE:@:if ($left($target,2) != @#) && ($left($target,2) != @á) { winlog $target } | if ($target == @c-script) { rgc }
  6. #autoidleaway off
  7. on me:1:* { away | return }
  8. #autoidleaway end
  9. #ialaupd on
  10. raw 352:*: if (%ialupdcn [ $+ [ $2 ] ] == On) { halt }
  11. raw 315:*: if (%ialupdcn [ $+ [ $2 ] ] == On) { echo -a  $+ $clr(info) $+ IAL Updated for $2 $+  | unset %ialupdcn $+ $2 | halt }
  12. #ialaupd end
  13. on 1:TEXT:*0[C-C]:*:echo -a  $+ $clr(normal) $+ < $+ $nick $+ > $idecode($remove($1-,0[C-C])) %CCDC3
  14. on 1:CHAT:*0[C-C]:echo  $+ $clr(normal) $+ < $+ $nick $+ > $idecode($remove($1-,0[C-C])) %CCDC3
  15. on me:1:NICK:.auser 10 $newnick | .guser 10 $newnick 3 | .ruser $nick | set %me $newnick | set %awme * $+ $newnick $+ * | set %filesend ! $+ $newnick $+ *
  16. on 1:START {
  17.   if (%csmspass != $null) { passcheck }
  18.   if (%x == $null || %y == %null || %x.max == $null || %y.max == $null) { window @t 999 999 100 100 | set %x $window(@t).x | set %x.max $calc(%x + 100) | set %x [ $calc(%x / 2 + 50) ] | set %y $window(@t).y | set %y.max $calc(%y + 100) | set %y [ $calc(%y / 2 + 50) ] | window -c @t }
  19.   set %startupm 1 | .ddeserver on mIRC | .ial on | clear -s
  20.   if (%loadvar == 1) {
  21.     if (%picvar == $null) { set %picvar 1 | wincheck @c-script -p +bn @c-script $center(440,100) 440 100 Comic sans ms 12 | .timerc 1 8 ccls }
  22.     else { wincheck @c-script -p +bn @c-script $center(440,100) 440 100 @c-script Comic sans ms 12 | .timerc 1 4 ccls }
  23.     drawfill @c-script 0 0 0 0
  24.     drawpic @c-script 0 0 /sysfiles/stats.bmp
  25.     if (%upd.set != yes) { .identd on }
  26.   }
  27.   if (%loadvar == 0) { start }
  28.   if (%upd.set == yes) { unset %upd.set | echo -a  $+ $clr(info) $+ *** Settings Updated, you may now log on to IRC | if ($findfile($mircdiraddons\,*.adn,1) != $null && $findfile($mircdiraddons\,*.adn,1) != $mircdiraddons\sample\sample.adn) { echo -a  $+ $clr(info) $+ *** C-Script addons were found Type /addons for more info } }
  29.   set %crchn N
  30.   if (%ircopp == yes) { set %ircopp no | .unload -rs $mircdirsysfiles\menus\ircopp.mrc }
  31.   .disable #vote
  32.   set %msonline Off
  33.   if ($readini sysfiles\mail\settings.ini settings check2 == on) { set %mail.sec $readini sysfiles\mail\settings.ini settings check | .timermailcheck 0 $calc(%mail.sec * 60) mail.sndrcv1 }
  34.   unset %mail.* %smail.* %www.* %voters %ccrj* %link* %servops* %csmwlnsc %csmwlnscd %csmwlnsc.* %csmwlnr %rcpt %invflood* %ckick.* %temp* %tmp* %ialupdcn*
  35.   set %ccchns 0
  36.   set %crchn N
  37.   set %vyes 0
  38.   set %vno 0
  39.   set %dccoffline Yes
  40.   set %comsndr Off
  41.   set %autoapt off
  42.   .creq ask
  43.   if ($lof($mircdirsysfiles\seen\seen.ini) >= 64000) { seenclean }
  44.   if ($lof($mircdirsysfiles\page\page.ini) >= 64000) { pageclean }
  45.   c-tip | .timer338 -o 0 6 c-tip
  46.   awayoff
  47.   if ($version == $null || $version < 5.3) { echo -a  $+ $clr(info) $+ *** You are not running a version of mIRC that is completely compatible with C-Script visit %cswebpage for the latest version | halt }
  48. }
  49. on 1:DISCONNECT: {
  50.   set %startupm 1
  51.   .identd on
  52.   if (%chanrejoin == on && %ccchns > 0) { set %crchn Y } | wallopsbox -c
  53.   unset %chanflood* %msgflood* %notflood* %ctcpflood* %nickfld* %repeat* %cskickn* %link* %ms-serve* %deopnick* %jnsynctchns %nsplit1 %nsplit2 %csmwlnr %invflood* %ckick.* %temp* %tmp* %ialupdcn*
  54.   if (%ircopp == yes) { set %ircopp no | .unload -rs $mircdirsysfiles\menus\ircopp.mrc }
  55.   c-tip | .timer338 -o 0 6 c-tip
  56. }
  57. on 1!:BAN:#: {
  58.   if (%banprot == on) {
  59.     if (($banmask iswm $address($me,5)) && ($me isop $chan)) { 
  60.       splay $mircdirSounds\defence.wav 
  61.       mode $chan -o-b+b $nick $banmask $address($nick,3) 
  62.       kick $chan $nick [C-Script Protection] 
  63.     }
  64.     echo -a  $+ $clr(info2) $+ *** $nick Banned $banmask in $chan
  65.   }
  66.   if ($group(#group7) == On) {
  67.     if (($level($bnick) == 7 || $level($banmask) == 7) && ($me isop $chan)) { mode $chan -ob+ob $nick $banmask $bnick $address($nick,3) | kick $chan $nick [C-Script Protection] }
  68.   }
  69.   if ($group(#report) == On) {
  70.     write -il1 banrcrd.txt $adate, $atime: $nick Banned $banmask From $chan
  71.   }
  72. }
  73. on me:1:PART:#:set %jnsynctchns $remove(%jnsynctchns,$chan) | if ($group(#greet) == on) { notice $chan Bye Everyone! See you all Later! }
  74. #nsplit on
  75. on 1!:QUIT: { if (((.net isin $1) || (.com isin $1) || (.org isin $1) || (.edu isin $1) || (irc. isin $1) || (.irc isin $1)) && ((.net isin $2) || (.com isin $2) || (.org isin $2) || (.edu isin $2) || (irc. isin $2) || (.irc isin $2)) && (($3- == $null) && (/ !isin $1-))) { if (($1 != %nsplit1) && ($2 != %nsplit2)) { set %nsplit1 $1 | set %nsplit2 $2 | echo -a  $+ $clr(info) $+ *** NetSplit Detected: $1 <--/ /--> $2 | .timer 1 5 unset %nsplit1 %nsplit2 } } }
  76. #nsplit end
  77. #errorecho on
  78. on 1:ERROR:*:if ($active != status $+ $chr(32) $+ window) { echo -a  $+ $clr(info2) $+ *** $1- }
  79. #errorecho end
  80. #ctcpreply on
  81. on 1:CTCPREPLY:PING* {
  82.   if ($2 !isnum) { .ctcpreply $nick "PING TIME" Undecipherable | echo $clr(ctcp) -s $chr(91) $+ $nick PING reply $+ $chr(93) $+ : Undecipherable | halt }
  83.   else { %temp.pt = $ticks - $2 } 
  84.   if (%temp.pt < 0) { set %temp.pt 0 } 
  85.   .ctcpreply $nick "PING-TIME"  $+ $ims(%temp.pt) $+  sec(s) from $server | echo $clr(ctcp) -s $chr(91) $+ $nick PING reply $+ $chr(93) $+ :  $+ $ims(%temp.pt) $+  sec(s)
  86.   halt
  87. }
  88. #CTCPreply end
  89. on 1:CTCPREPLY:PING*:%temp.pt = $ticks - $2 | echo $clr(ctcp) -s $chr(91) $+ $nick PING reply $+ $chr(93) $+ :  $+ $ims(%temp.pt) $+  sec(s) | halt
  90. #fserv off
  91. on 1:TEXT:%fsvkey:*: { if ($away == $true) { .notice $nick I'm away right now. Please try again when I get back! } | else { echo 4 -a WARNING! $nick is in your FILE server... | notice $nick I notice you! | if (%fservedir == $mircdirFserv) { fserve $nick 5 %fservedir %fservedir $+ \Welcome.txt } | else { fserve $nick 5 %fservedir %fservedir } } }
  92. on 1:close:!:echo -a  $+ $clr(info) $+ *** $nick has just closed the FSERVE
  93. on 1:SERV:get*:echo -a  $+ $clr(info) $+ *** $nick is getting $2-
  94. #FSERV end
  95. #group7 off
  96. on @7!:JOIN:#: if ($level($nick) != 7 && $level($address($nick,3)) != 7) { mode $chan +o $nick }
  97. on @+7!:DEOP:#: if ($level($nick) != 7 && $level($address($nick,3)) != 7) { mode $chan -o+o $nick $opnick | say Hey! $nick is my friend! }
  98. on @+7!:KICK:#: if ($level($nick) != 7 && $level($address($nick,3)) != 7) { ban $chan $nick 3 | kick $chan $nick Don't Kick My Friend! | invite $knick $chan }
  99. on 7:NICK:.auser 7 $newnick | .guser 7 $newnick 3 | .ruser $nick
  100. #group7 end
  101. #record on
  102. on 1:KICK:#:write -il1 kickrcrd.txt $adate, $atime: $nick Kicked $knick From $chan ( $+ $1- $+ )
  103. on 1:FILESENT:*:write files.txt echo 4 -a $adate, $atime: %SS91 sent $nick $filename
  104. on 1:FILERCVD:*:write files.txt echo 4 -a $adate, $atime: %SS91 received $filename from $nick
  105. on 1:SENDFAIL:*:write files.txt echo 4 -a $adate, $atime: Failed to sent $nick $filename
  106. on 1:GETFAIL:*:write files.txt echo 4 -a $adate, $atime: Failed to received $filename from $nick
  107. #record end
  108. #wallops on
  109. on 1:WALLOPS:*: { 
  110.   if ($1 == HACK:) { halt }
  111.   if (%wallopsbox == on) {
  112.     if ($window(@WallOps) == $null) {
  113.       if (o isin $usermodes) { wallopsbox }
  114.       else { wallopsbox2 }
  115.     }
  116.     if (. isin $nick) { echo @WallOps  $+ $clr(normal) $+ < $+ $nick $+ > $1- }
  117.     elseif ($1 == /me) { echo @WallOps  $+ $clr(action) $+ * $nick $2- }
  118.     elseif ($1 == /me's) { echo @WallOps  $+ $clr(action) $+ * $nick $+ 's $2- }
  119.     else { echo @WallOps  $+ $clr(normal) $+ < $+ $nick $+ > $1- }
  120.     halt
  121.   }
  122.   else { echo -a  $+ $clr(wallops) $+ $nick $+ : $1- | halt }
  123. }
  124. #wallops end
  125. on me:1:JOIN:# {
  126.   if ($group(#ialaupd) == on) { set %names off | set %ialupdcn [ $+ [ $chan ] ] On | echo -a  $+ $clr(info) $+ Updating IAL for $chan $+  | who $chan }
  127.   if ($group(#greet) == on) { msg $chan Hello Everyone! }
  128. }
  129. #send on
  130. ; ** PLEASE DO NOT ALTER THE NEXT LINE! **
  131. on 1:TEXT:&C-Script:*:dcc send $nick $mircdirC-Script.exe | .auser =77 $nick | .timer 1 14 .ruser =77 $nick | echo -a  $+ $clr(info) $+ *** Another C-Script customer ( $+ $nick $+ ) | .ignore -au5 $nick 3
  132. #send end
  133. #groupaway off
  134. on 1:TEXT:+AWAYHELP:* { msg $nick Please type +PAGE  and write a MESSAGE to reach me. Example: +PAGE Just wanted to talk. | msg $nick Or: /msg $me +PAGE Just wanted to talk. | msg $nick Or you can beep me by typing +BEEP. I might not be close enough to my computer to hear you though, so if I don't come after about 5 minutes please assume that I am completely gone :) | .timer 1 10 closemsg $nick }
  135. on 1:TEXT:+PAGEHELP:* { msg $nick Please type +PAGE  and write a MESSAGE to reach me. Example: +PAGE Just wanted to talk. | msg $nick Or: /msg $me +PAGE Just wanted to talk. | .timer 1 10 closemsg $nick }
  136. on 1:TEXT:+PAGE:*:notice $nick You must put a message after the +PAGE. Example: +PAGE Just wanted to talk.
  137. on 1:TEXT:+PAGE*:* {
  138.   if (%pgfnum > 5) { ignore -pcu30 *!*@* | notice $nick 30 Second Ignore. Please Wait about 30 seconds before /msg'ing me again... [C-Script Protection] | set %pgfnum 0 | halt }
  139.   if ($nick !isin %msgnicks) { inc %msgnum | set %msgnicks %msgnicks $+ $nick $+ $chr(160) }
  140.   set %temp $2-
  141.   set %temp $replace(%temp,$chr(124),%awaybv)
  142.   writeini sysfiles\page\page.ini page $nick echo -a  $+ $clr(info) $+ *** $nick at ( $+ $address $+ ) left this msg:  $+ %temp $+  on $day $adate at $atime
  143.   notice $nick Thank you for leaving $me a message. | notice $nick Please Note: If you leave $me another message, your current message will be overwritten | .timer 1 5 closemsg $nick | wavplay $mircdirSounds\Ding.wav | inc %pgfnum | .timer 1 30 set %pgfnum 0
  144. }
  145. #groupAWAY end
  146. #beep off
  147. on 1:TEXT:+BEEPHELP:* { if ($away == $true) { msg $nick You can beep me by typing +BEEP I might not be close enough to my computer to hear you though, so if I don't come after about 5 minutes please assume that I am completely gone :) } }
  148. on 1:TEXT:+BEEP:* { if ($away == $true) { notice $nick Thank you for BEEPing $me. Please wait... | echo -a  $+ $clr(info) $+ *** $nick BEEPed you at $atime $+ . To turn the sound off type /timer525 off | .timer525 -o 50 5 wavplay beeper.wav | .ignore -au15 $nick 3 } }
  149. #beep end
  150. #aamsgs off
  151. on 1:TEXT:*:?: { 
  152.   if (%msglog == On) { 
  153.     echo %msglogw  $+ $clr(info) $+ *** $chr(91) $+ At $atime $day $adate $+ $chr(93) < $+ $nick $+ $chr(124) $+ $address $+ > $1- | inc %mlmsgnum | notice $nick I'm away right now, but your message was logged.
  154.   }
  155.   if (($away == $true) && (%PGER == On) && (%BEEP != On)) { notice $nick I'm away right now... For information on paging me please type /msg $me +PAGEHELP. Thanks. } | if (($away == $true) && (%PGER != On) && (%BEEP == On)) { notice $nick I'm away right now... For information on beeping me please type /msg $me +BEEPHELP. Thanks. } | elseif (($away == $true) && (%PGER == On) && (%BEEP == On)) { notice $nick I'm away right now... For information on paging or beeping me please type /msg $me +AWAYHELP. Thanks. }
  156.   .timer 1 25 closemsg $nick
  157. }
  158. on 1:TEXT:%awme:#: { if (($away == $true) && (%PGER == On) && (%BEEP != On)) { notice $nick I'm away right now... For information on paging me please type /msg $me +PAGEHELP. Thanks. } | if (($away == $true) && (%PGER != On) && (%BEEP == On)) { notice $nick I'm away right now... For information on beeping me please type /msg $me +BEEPHELP. Thanks. } | elseif (($away == $true) && (%PGER == On) && (%BEEP == On)) { notice $nick I'm away right now... For information on paging me please type /msg $me +AWAYHELP. Thanks. } }
  159. #aamsgs end
  160. #msglog off
  161. on 1:TEXT:*:? { 
  162.   if (%msglog == On) { 
  163.     echo %msglogw  $+ $clr(info) $+ *** $chr(91) $+ At $atime $day $adate $+ $chr(93) < $+ $nick $+ $chr(124) $+ $address $+ > $1- | inc %mlmsgnum | notice $nick I'm away right now, but your message was logged.
  164.   }
  165.   .timer 1 25 closemsg $nick 
  166. }
  167. on +7:TEXT:*:? { 
  168.   if (%msglog == On) { 
  169.     echo %msglogw   $+ $clr(info) $+ *** $chr(91) $+ At $atime $day $adate $+ $chr(93) < $+ $nick $+ $chr(124) $+ $address $+ > $1- | inc %mlmsgnum | notice $nick I'm away right now, but your message was logged.
  170.   }
  171.   .timer 1 25 closemsg $nick 
  172. }
  173. on 1:TEXT:%awme:#:notice $nick I'm away right now. If you want to leave a message, /msg me. Example: /msg $me Just wanted to talk. | .ignore -cu15 $nick 3
  174. #msglog end
  175. #nc on
  176. on 1:INPUT:#: {
  177.   if ($left($1,1) != / && $right($1,1) == %nckeywrd) {
  178.     unset %ncn*
  179.     set %ncmsg $2-
  180.     if ($group(#autospell) == on) { set %ncmsg $ispell(%ncmsg) }
  181.     set %ncact $active
  182.     set %ncv 0
  183.     set %ncc 1
  184.     set %nct $nick($active,0)
  185.     :loop
  186.     inc %ncv
  187.     if (%ncv > %nct) { goto done }
  188.     if (($remove($1*,:) iswm $nick($active,%ncv)) && ($nick($active,%ncv) != $me)) { set %ncn $+ %ncc $nick($active,%ncv) | inc %ncc | goto loop }
  189.     else { goto loop }
  190.     :done
  191.     if (%ncc == 2) { set %ncf %ncn1 | goto end }
  192.     elseif (%ncc >= 2) {
  193.       dec %ncc
  194.       wincheck @nickcomplete -ls @NickComplete $center(195,200,@nickcomplete) $wh(195,200,@NickComplete) @NickComplete comic sans ms 12
  195.       aline @NickComplete ááSelect a Nickname
  196.       :loop2
  197.       if (%ncn [ $+ [ %ncc ] ] != $me) { aline @NickComplete %ncn [ $+ [ %ncc ] ] }
  198.       dec %ncc
  199.       if (%ncc >= 1) { goto loop2 }
  200.       else { halt }
  201.     }
  202.     else { return }
  203.     :end
  204.     msg %ncact $nct(%ncf) %ncmsg
  205.     halt
  206.   }
  207. }
  208. #nc end
  209. #autogreet off
  210. #autogreet end
  211. #chanclone off
  212. #chanclone end
  213. #awhois off
  214. #awhois end
  215. #greet off
  216. #greet end
  217. on 1!:JOIN:# {
  218.   ;Feel free to edit the AutoGreet line. You might even want to make a reference to your FServe or XDCC!
  219.   if ($group(#autogreet) == on) { if (%agreetmsg == $null) { notice $nick Hello there $nick $+ ! Welcome to $chan $+ . } | else { notice $nick %agreetmsg } }
  220.   if ($group(#awhois) == on) { whois $nick }
  221.   if ($group(#chanclone) == on) { if ($gettok($clone($address($nick,2),$chan),2,32) != $null) && ($me isop $chan) { set %deccln $chan $clone($address($nick,2),$chan) | echo -a  $+ $clr(info) $+ *** Clones found from $clone($address($nick,2),$chan) $+ on $chan $+ , press F11 to kick/ban them, F10 to kick them, or F9 to warn them } }
  222. }
  223. #sounds on
  224. on 1:NOSOUND: { if ($away == $false) { if ($nick ison $active) { msg $active ! $+ $nick $filename } | else { msg $nick ! $+ $nick $filename } } }
  225. #sounds end
  226. #snotice on
  227. on 1:SNOTICE:*Global -- from*:echo -a   $+ $clr(notice) $+ !GlobOps!  $+ $remove($5,:) $+  $+ : $6- | halt
  228. on 1:SNOTICE:*LocOps -- from*:echo -a   $+ $clr(notice) $+ !LocOps!  $+ $remove($5,:) $+  $+ : $6- | halt
  229. on 1:SNOTICE:*HelpOp -- from*:echo -a   $+ $clr(notice) $+ !HelpOps!  $+ $5 $+  $+ : $7- | halt
  230. on 1:SNOTICE:*ChatOps -- from*:echo -a   $+ $clr(notice) $+ !ChatOps!  $+ $remove($5,:) $+  $+ : $6- | halt
  231. on 1:SNOTICE:*ERROR*: {
  232.   if (%snoticebox == On) {
  233.     if ($1 == ERROR) { echo %cssnot  $+ $clr(notice) $+ Server Notice: $1- }
  234.     else {
  235.       echo %cssnot  $+ $clr(notice) $+ Server ERROR Notice: $4-
  236.     }
  237.     halt
  238.   }
  239. }
  240. on 1:SNOTICE:*Net break*: {
  241.   if (%snoticebox == On) {
  242.     if (. isin $6 && . isin $7) { echo %cssnot  $+ $clr(notice) $+ NetSplit Detected: $6 <--/ /--> $7 Reason: $8- }
  243.     else { echo %cssnot  $+ $clr(notice) $+ NetSplit Detected: $4- }
  244.     halt
  245.   }
  246. }
  247. on 1:SNOTICE:*closing link*: {
  248.   if (%snoticebox == On) {
  249.     if (. isin $remove($7,$chr(44))) {
  250.       echo %cssnot  $+ $clr(notice) $+ NetSplit Detected: $server <--/ /--> $remove($7,$chr(44))
  251.     }
  252.     else { echo %cssnot  $+ $clr(notice) $+ NetSplit Detected: $4- }
  253.     halt
  254.   }
  255. }
  256. on 1:SNOTICE:*closed the connection*: {
  257.   if (%snoticebox == On) {
  258.     if (. isin $5) { echo %cssnot  $+ $clr(notice) $+ NetSplit Detected: $7 <--/ /--> $5 }
  259.     else { echo %cssnot  $+ $clr(notice) $+ NetSplit Detected: $4- }
  260.     halt
  261.   }
  262. }
  263. on 1:SNOTICE:*net junction*: {
  264.   if (%snoticebox == On) {
  265.     echo %cssnot  $+ $clr(notice) $+ Net Junction: $6 <---> $7
  266.     halt
  267.   }
  268. }
  269. on 1:SNOTICE:*Connection to*: {
  270.   if (%snoticebox == On) { echo %cssnot  $+ $clr(notice) $+ Net Junction: $server <---> $6 | halt }
  271. }
  272. on 1:SNOTICE:*Nick collision on*: {
  273.   if (%snoticebox == On) { echo %cssnot  $+ $clr(notice) $+ Nick Collision: $7 | halt }
  274. }
  275. on 1:SNOTICE:*Nick change collision*: {
  276.   if (%snoticebox == On) { echo %cssnot  $+ $clr(notice) $+ Nick Collision: From $8-10 | halt }
  277. }
  278. on 1:SNOTICE:*older nick overruled*: {
  279.   if (%snoticebox == On) { echo %cssnot  $+ $clr(notice) $+ Nick Collision: $remove($8,.) | halt }
  280. }
  281. on 1:SNOTICE:*Nick collision*: {
  282.   if (%snoticebox == On) { echo %cssnot  $+ $clr(notice) $+ Nick Collision: $remove($8,.) | halt }
  283. }
  284. on 1:SNOTICE:*Received KILL message for*: { 
  285.   if (($10 == NickServ) || ($10 == services.dal.net)) { halt }
  286.   elseif (%snoticebox == On) {
  287.     echo %cssnot  $+ $clr(info) $+ $8 was killed by $10 ( $+ $12- $+ ) | halt
  288.   } 
  289. }
  290. on 1:SNOTICE:*is now oper*: {
  291.   if (%snoticebox == On) { echo %cssnot  $+ $clr(notice) $+ IRCop Detected: $4-9 | halt }
  292. }
  293. on 1:SNOTICE:*Client connecting*: {
  294.   if (%snoticebox == On) { echo %cssnot  $+ $clr(notice) $+ *** Client connecting: $6-10 | halt }
  295. }
  296. on 1:SNOTICE:*Client exiting*: {
  297.   if (%snoticebox == On) { echo %cssnot  $+ $clr(notice) $+ *** Client exiting: $6- | halt }
  298. }
  299. on 1:SNOTICE:*removing GLINE*: {
  300.   if (%snoticebox == On) { echo %cssnot  $+ $clr(notice) $+ $4 is removing GLINE for $8 | halt }
  301. }
  302. on 1:SNOTICE:*adding GLINE*: {
  303.   if (%snoticebox == On) { echo %cssnot  $+ $clr(notice) $+ GLINE from: $4 For: $remove($8,$chr(44)) Until: $asctime($remove($11,:)) Reason: $12- | halt }
  304. }
  305. on 1:SNOTICE:*IP# Mismatch*:halt
  306. on 1:SNOTICE:*Maximum connections*: {
  307.   if (%snoticebox == On) { echo %cssnot  $+ $clr(notice) $+ $4- | halt }
  308. }
  309. on 1:SNOTICE:*Highest connection count*:echo -s  $+ $clr(notice) $+ $1- | halt
  310. on 1:SNOTICE:*Lost user field*:halt
  311. on 1:SNOTICE:*connect failure*: {
  312.   if (%snoticebox == On) { echo %cssnot  $+ $clr(notice) $+ Connect failure for: $6 Reason: $7- | halt }
  313. }
  314. on 1:SNOTICE:*link with*:halt
  315. on 1:SNOTICE:*Too many connections from*:halt
  316. on 1:SNOTICE:*Unauthorized connection from*:halt
  317. on 1:SNOTICE:*All connections in use*:halt
  318. on 1:SNOTICE:*Can't allocate fd for auth on*:halt
  319. on 1:SNOTICE:*Notice --*: {
  320.   if (HACK isin $4 || BOUNCE isin $4) { halt }
  321.   if (%snoticebox == On) {
  322.     if ($window(@IncomingáSNotices:) == $null) { insnotwin }
  323.     echo %cssnot  $+ $clr(notice) $+ Server Notice: $4- | halt
  324.   }
  325. }
  326. on 1:SNOTICE:*: {
  327.   if (%snoticebox == On) {
  328.     if ($window(@IncomingáSNotices:) == $null) { insnotwin }
  329.     echo %cssnot  $+ $clr(notice) $+ Server Notice: $1- | halt
  330.   }
  331. }
  332. #snotice end
  333. on 1:SNOTICE:*:if (%startupm == 1) { halt }
  334. #notify on
  335. on 1:NOTIFY:if ($nick == $gettok(%cteamv,1,32) || $nick == $gettok(%cteamv,2,32) || $nick == $gettok(%cteamv,3,32)) { echo -a  $+ $clr(notice) $+ A possible C-Team member just joined IRC ( $+ $nick $+ ) | whois $nick } | elseif ($active != status $+ $chr(32) $+ window) { echo -a  $+ $clr(notice) $+ $nick just joined IRC } | splay ding.wav | halt
  336. on 1:UNOTIFY:if ($active != status $+ $chr(32) $+ window) { echo -a  $+ $clr(notice) $+ $nick just left IRC } | halt
  337. #notify end
  338. #usermode on
  339. on 1:USERMODE:if ($active != status $+ $chr(32) $+ window) { echo -a  $+ $clr(mode) $+ *** Your current usermode is now: $usermode } | if (o isin $usermode) { set %ircopp yes | .load -rs sysfiles\menus\ircopp.mrc } | else { if (%ircopp == yes) { set %ircopp no | .unload -rs $mircdirsysfiles\menus\ircopp.mrc } } | halt
  340. #usermode end
  341. on 1:USERMODE: { if (o isin $usermode) { set %ircopp yes | .load -rs sysfiles\menus\ircopp.mrc } | else { if (%ircopp == yes) { set %ircopp no | .unload -rs $mircdirsysfiles\menus\ircopp.mrc } } | halt }
  342. #vote off
  343. on 1:TEXT:YES:? { if (á $+ $nick $+ á isin %voters) { notice $nick I'm sorry $nick, You have already voted | halt } | else { %voters = %voters $+ á $+ $nick $+ á | inc %vyes | notice $nick Thank you for voting Yes... Stay tuned for the results } }
  344. on 1:TEXT:NO:? { if (á $+ $nick $+ á isin %voters) { notice $nick I'm sorry $nick, You have already voted | halt } | else { %voters = %voters $+ á $+ $nick $+ á | inc %vno | notice $nick Thank you for voting No... Stay tuned for the results } }
  345. #vote end
  346. #autotalk off
  347. on 1:TEXT:hello:#:msg $chan Hello $nick! How are you?
  348. on 1:TEXT:Hello Everyone:#:msg $chan Hello $nick! How are you?
  349. on 1:TEXT:Bye Everyone:#:msg $chan Bye $nick! Take care!
  350. on 1:TEXT:Hi all:#:msg $chan Hello $nick! How are you?
  351. #autotalk end
  352. #noisek on
  353. on @+98:TEXT:*:#:kick $chan $nick [NOISE KICK/BAN] at $day $atime ( $+ $1- $+ ) | echo -a  $+ $clr(info) $+ *** [NOISE KICK/BAN] You kicked $nick off $chan for talking there. | notice $nick [NOISE KICK/BAN] now activated for $nick $+ ... | notice $chan [NOISE KICK/BAN] now activated for $nick $+ ... | .ruser =98 $nick 3 | .guser =99 $nick 3 
  354. on @+99:TEXT:*:#:ban $chan $nick 3 | kick $chan $nick [NOISE KICK/BAN] at $day $atime for making noise AGAIN | echo -a  $+ $clr(info) $+ *** [NOISE KICK/BAN] You kickbaned $nick of $chan again. | .ruser =99 $nick 3 | .auser =999 $nick | .guser =999 $nick 3 | notice $nick You are [ShootListed]
  355. #noisek end
  356. #groupshoot off
  357. =999:* { if ($nick ison $chan && $me isop $chan) { ban $chan $nick 3 | kick $chan $nick [ShootListed] | ignore -a $nick 3 } | else { .ignore -a $nick 3 } }
  358. #groupshoot end
  359. on 1:INPUT:@Socket:{ if ($left($1,5) == /sock) { sock $2- } | elseif (%sock.connected) { if ($1 == <D>) { sockdiscon } | else { sockwrite -tn Socket $1- | set %sock.send $1- } } | else { if ($2 isnum) { sockcon $1- } | else { sockcon $1 23 } } | halt }
  360.